From 4c9330b068486cb726677ed7ea8caaf4718d1e79 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Fri, 18 Aug 2006 12:06:54 +0000 Subject: [PATCH] (spaces-string): Simplify and add doc string. --- lisp/rect.el | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/lisp/rect.el b/lisp/rect.el index be3a65ccd6a..9515733ef2b 100644 --- a/lisp/rect.el +++ b/lisp/rect.el @@ -181,12 +181,9 @@ the function is called." ;; this one is untouched --dv (defun spaces-string (n) + "Returns a string with N spaces." (if (<= n 8) (aref spaces-strings n) - (let ((val "")) - (while (> n 8) - (setq val (concat " " val) - n (- n 8))) - (concat val (aref spaces-strings n))))) + (make-string n ? ))) ;;;###autoload (defun delete-rectangle (start end &optional fill) -- 2.30.2